with Ada.Text_IO; use Ada.Text_IO;
with Constants; use Constants;
with Folk; use Folk;
with Stations; use Stations;

with Trains;

procedure Main is


begin

   Put_Line("Welcome");

   for st in StationType'First .. StationType'Last loop
   	StationsList(st).create(st);
   end loop ;

end main;
